home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
PersonalPV2.1_d1.adf
/
PPaint_Prefs
/
PP_Locale
/
PP_DiskReset
next >
Wrap
Text File
|
1977-12-31
|
4KB
|
123 lines
; Copyright (C) Cloanto (R) 1992, 1993 All Rights Reserved Reproduction Prohibited
; Reset Personal Paint Disk Name
Assign >NIL: " PPaint:" EXISTS
If NOT WARN
Relabel >NIL: " PPaint:" PPaint
EndIf
Assign >NIL: "Copy of PPaint:" EXISTS
If NOT WARN
Relabel >NIL: "Copy of PPaint:" PPaint
EndIf
Assign >NIL: Copy_of_PPaint: EXISTS
If NOT WARN
Relabel >NIL: Copy_of_PPaint: PPaint
EndIf
PPaint:c/Print >RAM:PP_WriteOK ";"
Copy >NIL: RAM:PP_WriteOK PPaint:PPaint_Prefs/PP_Locale
Delete >NIL: RAM:PP_WriteOK
If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_WriteOK
PPaint:c/Print "Error during Personal Paint disk configuration."
Wait 3 SECS
Skip End
EndIf
; Reset Personal Paint Startup-Sequence Local Texts
If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.eng
Rename PPaint:s/Startup-PPLclTxt PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.eng
EndIf
If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.deu
Rename PPaint:s/Startup-PPLclTxt PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.deu
EndIf
If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.ita
Rename PPaint:s/Startup-PPLclTxt PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.ita
EndIf
; Reset Personal Paint Startup-Sequence Local Commands
If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclExe.eng
Rename PPaint:s/Startup-PPLclExe PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclExe.eng
EndIf
If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclExe.deu
Rename PPaint:s/Startup-PPLclExe PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclExe.deu
EndIf
If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclExe.ita
Rename PPaint:s/Startup-PPLclExe PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclExe.ita
EndIf
; Reset Personal Paint User Interface Language Preferences
PPaint:c/Print > PPaint:PPaint_Prefs/Startup_A.set "PPAINT SETTINGS*N; Country and Language Dependent Settings*N"
; Set Personal Paint 1.x/2.x-3.x Icons
Version >NIL: graphics.library 36
If WARN
If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13
PPaint:c/Print >RAM:MEMO_NEWCOL ";"
CD PPaint:PPaint_Icons_1
EndIf
Else
If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13
PPaint:c/Print >RAM:MEMO_NEWCOL ";"
CD PPaint:PPaint_Icons_2
EndIf
EndIf
If EXISTS RAM:MEMO_NEWCOL
Copy PPaint:c/CopyIcon RAM:
RAM:CopyIcon >NIL: -r def_Disk PPaint:Disk
RAM:CopyIcon >NIL: -r def_PPaint PPaint:PPaint
RAM:CopyIcon >NIL: -r def_Config PPaint:English
RAM:CopyIcon >NIL: -r def_Config PPaint:Deutsch
RAM:CopyIcon >NIL: -r def_Config PPaint:Italiano
RAM:CopyIcon >NIL: -r def_InstallPPaint PPaint:InstallPPaint
RAM:CopyIcon >NIL: -r def_PPaint.man PPaint:PPaint.man
RAM:CopyIcon >NIL: -r def_PPaint_PS PPaint:PPaint_PS
RAM:CopyIcon >NIL: -r def_CloantoAudio PPaint:CloantoAudio
RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Prefs
RAM:CopyIcon >NIL: -r def_Settings PPaint:PPaint_Prefs/Startup_1.set
RAM:CopyIcon >NIL: -r def_Settings PPaint:PPaint_Prefs/Startup_2.set
RAM:CopyIcon >NIL: -r def_UIText PPaint:PPaint_Prefs/UIText.#?
RAM:CopyIcon >NIL: -r def_Brush PPaint:PPaint_Prefs/UIColors.#?
RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Tools
RAM:CopyIcon >NIL: -r def_AskAssign PPaint:PPaint_Tools/AskAssign
RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Icons_1
RAM:CopyIcon >NIL: -r def_Drawer PPaint:PPaint_Icons_2
Copy PPaint:Shell.info RAM:PP_Shell.info CLONE
Copy PPaint:Preferences.info RAM:PP_Preferences.info CLONE
Version >NIL: graphics.library 36
If WARN
RAM:CopyIcon >NIL: -1 -r RAM:PP_Shell PPaint:Shell
RAM:CopyIcon >NIL: -1 -r RAM:PP_Preferences PPaint:Preferences
PPaint:c/Print >PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13 ";"
Else
RAM:CopyIcon >NIL: -2 -r RAM:PP_Shell PPaint:Shell
RAM:CopyIcon >NIL: -2 -r RAM:PP_Preferences PPaint:Preferences
Delete PPaint:PPaint_Prefs/PP_Locale/PP_CurrentWB13 QUIET
EndIf
Delete RAM:PP_Preferences.info QUIET
Delete RAM:PP_Shell.info QUIET
Delete RAM:CopyIcon QUIET
Delete RAM:MEMO_NEWCOL QUIET
EndIf
Lab End